home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00143.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  591 b   |  31 lines
  1. on girlin
  2.   global in
  3.   puppetSprite(2, 1)
  4.   puppetSound("SLOW DOOROPEN.AIF")
  5.   repeat with n = 9 to 13
  6.     set the castNum of sprite 2 to n
  7.     updateStage()
  8.   end repeat
  9.   repeat with n = 1 to 2
  10.     set the castNum of sprite 2 to 22
  11.     updateStage()
  12.     delayFor(10)
  13.     set the castNum of sprite 2 to 13
  14.     updateStage()
  15.     delayFor(5)
  16.   end repeat
  17.   set in to 1
  18. end
  19.  
  20. on girlout
  21.   global in
  22.   puppetSprite(2, 1)
  23.   puppetSound("SLOW DOOROPEN.AIF")
  24.   repeat with n = 12 down to 8
  25.     set the castNum of sprite 2 to n
  26.     updateStage()
  27.   end repeat
  28.   set in to 0
  29.   puppetSprite(2, 0)
  30. end
  31.